<html><head><meta charset="gb2312"/><title>Http.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">;   PureBasic - Http example file
</font><font color="#3A3966">;
</font><font color="#3A3966">;    (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<font color="#3A3966">InitNetwork</font>()


URL$ = "http://user:pass@www.purebasic.com:1024/subdirectory/index.php?year=2008&month=12&day=3"
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetURLPart</font>(URL$, "year")
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Site</font>)
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Port</font>)
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Parameters</font>)
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Path</font>)
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_User</font>)
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">GetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Password</font>)

<b><font color="#3A3966">Debug</font></b> "-------"
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">SetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Site</font>, "forums.purebasic.fr")
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">SetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Port</font>, "80")
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">SetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_User</font>, "bericko")
<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">SetURLPart</font>(URL$, <font color="#FF0000">#PB_URL_Password</font>, "password")



</font></pre>
</body></html>
